home *** CD-ROM | disk | FTP | other *** search
/ Euroscene 2 / Euroscene 2.iso / DEMOS / S_BRAINS / 1_MYFRIENDDARKROOM.LHA / InstallSlide < prev    next >
Encoding:
Text File  |  1994-12-21  |  1.9 KB  |  81 lines
  1. ((set name
  2.     ( askdir
  3.       (prompt ( cat "Where do you want to install My Friend"
  4.                 "DarkRoom (2,2MB) ?\n(A new directory named \"KSS-SLIDE\""
  5.                 " will be created)."
  6.         ))
  7.       (help @askdir-help)
  8.       (disk)
  9.        (default "SYS:")
  10.      )
  11. ))
  12. (set name (tackon  name "KSS-SLIDE" ))
  13. (message ( cat "I'm going to copy the slide in \n"
  14.                  name
  15.                 "\n Okay ? "
  16. ))
  17.  
  18. (makedir name
  19.     (help @makedir-help)
  20.     (infos)
  21. )
  22. (complete 1)
  23. (copyfiles
  24.     (prompt "Copying files from disk 1")
  25.     (source "KSS-SLIDE-1:")
  26.     (pattern "#?")
  27.     (files)
  28.     (infos)
  29.     (dest name)
  30.     (help @copyfiles-help)
  31. )
  32. (complete 33)
  33. (copyfiles
  34.     (prompt "Copying file from disk 2")
  35.     (source "KSS-SLIDE-2:KSSDATA2")
  36.     (dest name)
  37.     (help @copyfiles-help)
  38. )
  39. (complete 66)
  40. (copyfiles
  41.     (prompt "Copying file from disk 3")
  42.     (source "KSS-SLIDE-3:KSSDATA3")
  43.     (dest name)
  44.     (help @copyfiles-help)
  45. )
  46. (complete 99)
  47. (copylib
  48.     (   prompt "Copying CrM.library V4 to LIBS: .")
  49.     (   source "KSS-SLIDE-1:libs/CrM.library")
  50.     (   dest   "LIBS:")
  51.    (help @copylib-help)
  52.     (confirm)
  53. )
  54. (delete Effacer
  55. )
  56. (set Effacer (tackon name  "installsl#?" ))
  57. (delete Effacer)
  58. (textfile
  59.         (dest (tackon name "Slide !"))
  60.         (append (cat
  61.                 (cat "assign KSS-SLIDE-1: " name)
  62.                 (cat "\nassign KSS-SLIDE-2: " name)
  63.                 (cat "\nassign KSS-SLIDE-3: " name)
  64.                 "\ncd KSS-SLIDE-1:"
  65.                 "\nKSS-SLIDE"
  66.                 "\nassign KSS-SLIDE-1: REMOVE"
  67.                 "\nassign KSS-SLIDE-2: REMOVE"
  68.                 "\nassign KSS-SLIDE-3: REMOVE"
  69.                 ))
  70. )
  71. (protect (tackon name "slide !")
  72.         "+s +r +e +w +d"
  73. )
  74. (rename (tackon name "Slide !.inf") (tackon name "slide !.info"))
  75. (complete 100)
  76. (exit
  77.     " Bye. See you next slide !!!"
  78.     "\n\n "
  79.    "(Remove the slide-disks from diskdrive before launching the show.)"
  80. )
  81.